perm filename DIDDY.1[NEW,LSP]  blob 
sn#335146 filedate 1978-02-16 generic text, type C, neo UTF8
 
COMMENT ā   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\|\\M0NGB40\M1NGR30\M2nonmi\M3 gacb25\M4nonsbi\M5nonsb\
C00004 ENDMK
Cā;
\|\\M0NGB40;\M1NGR30;\M2nonmi;\M3 gacb25;\M4nonsbi;\M5nonsb;\;
\F0\CComments\.\F1
\J	Commenting code is done, among other things, so that
other people can figure out what the code is doing and thus
understand, modify, and use it. Comments should be short, concise,
unambiguous, and \F2RHYME!:\.
\F3IFE QIO,[
READLIST:	MOVEI B,MKNAM2	;SUBR 1
	JUMPE A,RDL12		;MKNAM2 IS JUST THE THING:
	JSP T,SPECBIND		;LIKE KRYPTONITE, IT GLOWS COLD GREEN;
Q%	0 B,TYIMAN		;FORCE TYIMAN TO DO OUR WILL,
Q%	0 NIL,TMBBC		;SO READ FROM READLIST GETS ITS FILL!
	0 A,MKNM3
	MOVEI A,(B)
	PUSHJ P,READ0A
	SKIPE T,MKNM3
	CAIN T,-1
	JRST UNBIND
	LERR EMS1	;EXTRA CHARS IN LIST
			
\R\F4From \F5The Maclisp Source.\.